home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_130 / hp / hp_graphics2.include < prev    next >
Text File  |  1992-05-06  |  5KB  |  217 lines
  1. /*---------------------------------------------*/
  2. /*                                             */
  3. /*   Filename:  hp_graphics2.include           */
  4. /*                                             */
  5. /*   Countains C source code for the routines  */
  6. /*   DrawDisplay, DrawKeys, DrawKey and        */
  7. /*   LabelKeys, which are used by hp.c         */
  8. /*                                             */
  9. /*---------------------------------------------*/ 
  10.  
  11. DrawDisplay()
  12. {
  13.   SetDrMd( rp, JAM2 );
  14.   SetBPen( rp,    SCREENCOLOR );
  15.   Move( rp, 184, 46 );
  16.   Text( rp, "                                  ", 34 );
  17.   Move( rp, 184, 54 );
  18.   Text( rp, "                                  ", 34 );
  19.   Move( rp, 184, 62 );
  20.   Text( rp, "                                  ", 34 );
  21.   SetAPen( rp, GREY );
  22.  
  23.   WritePixel( rp, 184, 40 );
  24.   WritePixel( rp, 455, 40 );
  25.   WritePixel( rp, 184, 63 );
  26.   WritePixel( rp, 455, 63 );
  27.  
  28.   SetAPen( rp, BLACK );
  29.  
  30.   if ( screen_refresh_only ) return(0);
  31.  
  32.   Move( rp, 172, 38 );
  33.   Draw( rp, 172, 65 );
  34.   Draw( rp, 467, 65 );
  35.   Draw( rp, 467, 38 );
  36.   Draw( rp, 172, 38 );
  37.  
  38.   SetAPen( rp, GREY );
  39.  
  40.   WritePixel( rp, 172, 38 );
  41.   WritePixel( rp, 172, 65 );
  42.   WritePixel( rp, 467, 38 );
  43.   WritePixel( rp, 467, 65 );
  44.  
  45. }
  46. /*--------------------------------------------------------*/
  47. DrawKeys()
  48. {
  49.   /* Draw the RGB buttons: */
  50.   keysize  = 35;
  51.   ymin = 22;
  52.   SetAPen( rp, RED   );
  53.   xmin = 400;
  54.   DrawKey();
  55.   SetAPen( rp, GREEN );
  56.   xmin = 445;
  57.   DrawKey();
  58.   SetAPen( rp, BLUE  );
  59.   xmin = 490;
  60.   DrawKey();
  61.   SetAPen( rp, BLACK );
  62.  
  63.  
  64.   /* Draw the symmetric block of 36 keys:  */
  65.   for ( ymin = 73; ymin <= 158; ymin+=17 ){
  66.     for ( xmin = 46; xmin <= 326; xmin+=56){
  67.       DrawKey();
  68.       SetAPen( rp, BLACK );
  69.     }
  70.   }
  71.  
  72.   keysize = 50;
  73.   SetAPen( rp, BLUE );
  74.  
  75.   /* Draw the blue keys along the bottom : */
  76.   for ( xmin = 46; xmin <= 531; xmin+=97 ) {
  77.     DrawKey();
  78.     SetAPen( rp, BLUE );
  79.   }
  80.  
  81.   SetAPen( rp, TAN );
  82.   keysize = 35;
  83.  
  84.   /* Draw the numeric keypad:   */
  85.   for ( ymin = 73; ymin <= 107; ymin+=17 ){
  86.     for ( xmin = 390; xmin <= 558; xmin+=56 ){
  87.       DrawKey();
  88.       SetAPen( rp, TAN );
  89.     }
  90.   }
  91.  
  92.  /*  Draw the zero key and decimal point : */
  93.  ymin = 124;
  94.  for ( xmin = 414; xmin <= 477; xmin+=63 ){
  95.    DrawKey();
  96.    SetAPen( rp, TAN );
  97.  }
  98.  
  99.  /*  Draw the plus key:  */
  100.  xmin = 558;
  101.  DrawKey();
  102.  SetAPen( rp, TAN );
  103.  
  104.  /*  Draw the enter key, CHS, EEX and linefeed:   */
  105.  ymin = 141;
  106.  xmin = 446;
  107.  keysize = 68;
  108.  DrawKey();
  109.  SetAPen( rp, TAN );
  110.  
  111.  ymin = 158;
  112.  xmin = 429;
  113.  keysize = 35;
  114.  DrawKey();
  115.  SetAPen( rp, TAN );
  116.  
  117.  xmin = 494;
  118.  DrawKey();
  119.  SetAPen( rp, TAN );
  120.  
  121.  xmin = 558;
  122.  DrawKey();
  123.  
  124.  
  125. }
  126. /*-------------------------------------------------------------------*/
  127. DrawKey()
  128. {
  129.   RectFill( rp, xmin, ymin, xmin+keysize, ymin + 9 );
  130.  
  131.   SetAPen( rp, 0);
  132.   WritePixel( rp, xmin          , ymin     );
  133.   WritePixel( rp, xmin + keysize, ymin     );
  134.   WritePixel( rp, xmin          , ymin + 9 );
  135.   WritePixel( rp, xmin + keysize, ymin + 9 );
  136.  
  137. }
  138.  
  139. /*-------------------------------------------------------------------*/
  140. LabelKeys()
  141. {
  142.   SetDrMd( rp, JAM1 );
  143.   SetAPen( rp, TAN );
  144.   Move( rp, STARTX,  80 );
  145.   Text( rp,
  146.   " A      B      C      D      E      F       7      8      9      /", 66 );
  147.   Move( rp, STARTX,  97 );
  148.   Text( rp,
  149.   "BIN    OCT    DEC    HEX    FLT    CPX      4      5      6      x", 66 );
  150.   Move( rp, STARTX, 114);
  151.   Text( rp,
  152.   "deg    rad    grd    Sin    Cos    Tan      1      2      3      -", 66 );
  153.   Move( rp, STARTX, 131);
  154.   Text( rp,
  155.   "STO    RCL    1/x    Asn    Acs    Atn         0       .         +", 66 );
  156.   Move( rp, STARTX, 148);
  157.   Text( rp,
  158.   "x^2     x     y^x    log    lg2    ln              ENTER          ", 66 );
  159.   Move( rp, STARTX, 165);
  160.   Text( rp,
  161.   "       P-R    R-P    10     2^x    e^x          CHS     EEX     LF", 66 );
  162.   Move( rp, STARTX, 163);
  163.   Text( rp,
  164.   "                       x", 24 );
  165.  
  166.   /* Draw pi:       */
  167.   Move( rp, 62, 161 );
  168.   Draw( rp, 62, 165 );
  169.   Move( rp, 66, 161 );
  170.   Draw( rp, 66, 165 );
  171.   Move( rp, 60, 161 );
  172.   Draw( rp, 68, 161 );
  173.  
  174.   /* Draw the radix */
  175.   Move( rp, 108, 145 );
  176.   Draw( rp, 111, 148 );
  177.   Draw( rp, 113, 142 );
  178.   Draw( rp, 126, 142 );
  179.   Draw( rp, 128, 143 );
  180.  
  181.   SetAPen( rp, BLACK );
  182.  
  183.   /* Draw the line feed */
  184.   Move( rp, 586, 165 );
  185.   Draw( rp, 586, 159 );
  186.   Draw( rp, 583, 162 );
  187.   Move( rp, 587, 165 );
  188.   Draw( rp, 587, 159 );
  189.   Draw( rp, 590, 162 );
  190.  
  191.  
  192.   Move( rp, STARTX,  80 );
  193.   Text( rp,
  194.   "                                            7      8      9      /", 66 );
  195.   Move( rp, STARTX,  97 );
  196.   Text( rp,
  197.   "                                            4      5      6      x", 66 );
  198.   Move( rp, STARTX, 114);
  199.   Text( rp,
  200.   "                                            1      2      3      -", 66 );
  201.   Move( rp, STARTX, 131);
  202.   Text( rp,
  203.   "                                               0       .         +", 66 );
  204.   Move( rp, STARTX, 148);
  205.   Text( rp,
  206.   "                                                   ENTER          ", 66 );
  207.   Move( rp, STARTX, 165);
  208.   Text( rp,
  209.   "                                                CHS     EEX     LF", 66 );
  210.  
  211.   Move( rp, STARTX, 182);
  212.   Text( rp,
  213.   "Print       RCLz        RCLt        LastX        x<>y        Drop ", 66 );
  214.  
  215. }
  216. /*-------------------------------------------------------------------*/
  217.